home *** CD-ROM | disk | FTP | other *** search
/ 3D GFX / 3D GFX.iso / pcutils / os2 / chngbckg / chngbckg.cmd next >
Encoding:
Text File  |  1995-12-31  |  703 b   |  21 lines
  1. /* CHNGBCKG.CMD - Change Warp Background Bitmap randomly */
  2. /* Please email comments to pauls@xanax.apana.org.au */
  3. /* Change this to the directory, where your ZIPped BMP's are stored but   */
  4. /* you MUST include the final backslash!           */
  5. BACKDIR = 'e:\utilities\pmjpeg\backgrounds\'
  6.  
  7. /* Change this to whatever drive you boot from     */
  8. BOOTDRIVE = 'd:'
  9.  
  10. call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  11. call SysLoadFuncs
  12.  
  13. call SysFileTree BACKDIR'*.zip', "bckgr.", "O"
  14.    i = random(1,bckgr.0)
  15.    'unzip 'bckgr.i
  16. call SysFileTree BACKDIR'*.bmp', "bmp.", "O"
  17.    /* t = random(1,bmp.0) */
  18.    'copy 'bmp.1' 'BOOTDRIVE'\os2\bitmap\os2backg.bmp'
  19.    'del *.bmp' 
  20. exit
  21.